COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	%\magnification=\magstephalf
C00007 00003	\personal
C00009 ENDMK
C⊗;
%\magnification=\magstephalf
%\magnification=\magstep1
\def\today{\ifcase\month\or
  January\or February\or March\or April\or May\or June\or
  July\or August\or September\or October\or November\or December\fi
  \space\number\day, \number\year}

\raggedbottom
\interlinepenalty=1000
\hsize=6.25truein
%\voffset=24pt
%\advance\vsize by-\voffset
\parindent=0pt
\parskip=0pt
\nopagenumbers
\footline={\ifnum\pageno>1
  \addressee\hfil\today\qquad \folio
  \else\hfil\fi}

\def\beginlinemode{\endmode
  \begingroup\obeylines\def\endmode{\par\endgroup}}
\def\beginparmode{\endmode
  \begingroup\parskip=\medskipamount \def\endmode{\par\endgroup}}
\let\endmode=\par
\def\endletter{\endmode\vfill\supereject}

\newdimen\longindentation \longindentation=4truein
\newbox\theaddress
\def\address{\beginlinemode\getaddress}
{\obeylines\gdef\getaddress #1
  #2
  {#1\gdef\addressee{#2}%
    \global\setbox\theaddress=\vbox\bgroup\raggedright%
     \hsize=3.25truein\everypar{\hangindent2em}#2
%    \hsize=\longindentation \everypar{\hangindent2em}#2
    \def\endmode{\egroup\endgroup \copy\theaddress \bigskip}}}

\def\body{\beginparmode}
\def\annotations{\beginlinemode\def\par{\endgraf\nobreak}\obeylines\par}
\def\ps{\beginparmode\nobreak
  \interlinepenalty5000\def\par{\endgraf\penalty5000}}

\def\up#1{\leavevmode \raise.16ex\hbox{#1}}

\def\personal{\pageno=1
  \def\sendingaddress{Arthur L. Samuel\par
    The Sequoias\par
    501 Portola Road, box 8214\par
    Portola Valley, CA 94025\par
    \up[415\up]\thinspace 424-4233\par}
  \def\returnaddress{Arthur L. Samuel\par
    The Sequoias\par
    501 Portola Road, box 8214\par
    Portola Valley, CA 94025 USA}
\centerline{Arthur L. Samuel}
\centerline{The Sequoias}
\centerline{501 Portola Rd. box 8214}
\centerline{Portola Valley, CA 94025}
    \bigskip\bigskip\hfill\today\bigskip}

%\def\makelabel{\endletter\hbox{\vrule
%    \vbox{\hrule \kern6truept
%      \hbox{\kern6truept\vbox to 3truein{\hsize=\longindentation
%          \smallheadfont\baselineskip9truept\returnaddress
%          \vfill\moveright 3truein\copy\theaddress\vfill}%
%        \kern6truept}\kern6truept\hrule}\vrule}
%  \vfill\eject}

\def\makelabel{\endletter\hbox%
{\vrule\vbox{\hrule \kern6truept
      \hbox{\kern6truept\vbox{\hsize=2truein
    \baselineskip10truept\returnaddress}}\smallskip\hrule}\vrule}
\medskip
\hbox{\vrule\vbox{\hrule \kern6truept
      \hbox{\kern6truept\vbox{\hsize=3truein
     \copy\theaddress}}\smallskip\hrule}\vrule}\eject}

\def\als{\beginlinemode\nobreak\bigskip
\hskip4truein Sincerely yours,
    \nobreak\bigskip\bigskip\bigskip % space for signature
\hskip4truein Arthur L. Samuel
\bigskip}
\def\fin{\makelabel\end}

\personal
\address
Ms. Donna Hussain
Karen Drive
Las Cruces, NM

\body
Dear Donna:

This is my first attempt to use the new program that I have been working
on for some time.  This program is a printer driver program for a \TeX\
written program.  This program take
takes its font information in quite a different way from
a new kind of file called a .GF file. These .GF files are to be generated
by a completely new METAFONT progam that Don Knuth has written.  So far, 
no suitable fonts (sets of characters in different type
faces) for letters have been produced by this new method and I have only some
improvised .GF files based on the earlier generated fonts.  This type face is
a bit small for a letter. You will just have to put up with it.

\bigskip
My main reason for writing you now and from the office (where I do not have your
full address) is to try out my new program.  I do want to send you the enclosed
tokens which should have been sent before Christmas but your long trip to the
Alps and to London caught up with me before I got arround to taking care of
the matter.
\bigskip

\als


\fin